home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / KONSTR21.ZIP / konstr / euler.car < prev    next >
Encoding:
Text File  |  1996-02-05  |  2.0 KB  |  43 lines

  1. window(-1,1,-1,1);
  2. /*
  3. The Euler line.
  4.  
  5.  
  6. It seems that is was Euler who discovered and proved that the
  7. intersection of three famous points always are on a line. These
  8. are the center of the circle through the three points U, the intersection
  9. of the heights H and the center of gravity S.
  10.  
  11.  
  12. Move a corner and observe the Euler line segment.
  13. */
  14. Punkt_23()=point(0.179221,0.428571);
  15. Punkt_24()=point(-0.678846,-0.319525);
  16. Punkt_25()=point(0.384164,-0.331378);
  17. Strecke_4()=segment(Punkt_24,Punkt_23);
  18. Strecke_5()=segment(Punkt_23,Punkt_25);
  19. Strecke_6()=segment(Punkt_25,Punkt_24);
  20. Kreis_9(hidden,color:blue)=circle(Punkt_24,Punkt_25);
  21. Kreis_10(hidden,color:blue)=circle(Punkt_25,Punkt_24);
  22. Schnitt_12(hidden,color:blue),Schnitt_13(hidden,color:blue)=intersection(Kreis_9,Kreis_10);
  23. Gerade_16(hidden,color:blue)=line(Schnitt_13,Schnitt_12);
  24. Kreis_11(hidden,color:blue)=circle(Punkt_24,Punkt_23);
  25. Kreis_12(hidden,color:blue)=circle(Punkt_23,Punkt_24);
  26. Schnitt_14(hidden,color:blue),Schnitt_15(hidden,color:blue)=intersection(Kreis_12,Kreis_11);
  27. Gerade_17(hidden,color:blue)=line(Schnitt_15,Schnitt_14);
  28. U(color:blue,showname,symbol:circle)=intersection(Gerade_16,Gerade_17);
  29. Kreis_13(color:blue)=circle(U,Punkt_24);
  30. Punkt_31(hidden,color:pink),Gerade_18(hidden,color:pink)=rectangular(Punkt_23,Strecke_6);
  31. Punkt_32(hidden,color:pink),Gerade_19(hidden,color:pink)=rectangular(Punkt_24,Strecke_5);
  32. H(color:pink,showname,symbol:circle)=intersection(Gerade_18,Gerade_19);
  33. Schnitt_18(hidden,color:pink)=intersection(Strecke_6,Gerade_18);
  34. Strecke_7(color:pink)=segment(Punkt_23,Schnitt_18);
  35. Schnitt_19(hidden,color:pink)=intersection(Gerade_19,Strecke_5);
  36. Strecke_8(color:pink)=segment(Punkt_24,Schnitt_19);
  37. Schnitt_20(hidden,color:green)=intersection(Strecke_6,Gerade_16);
  38. Strecke_9(color:green)=segment(Punkt_23,Schnitt_20);
  39. Schnitt_21(hidden,color:green)=intersection(Strecke_4,Gerade_17);
  40. Strecke_10(color:green)=segment(Punkt_25,Schnitt_21);
  41. S(color:green,showname,symbol:circle)=intersection(Strecke_9,Strecke_10);
  42. Strecke_11()=segment(H,U);
  43.